home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / MODEMPRO / TT20.ZIP;1 / GEMAIL.SCR next >
Encoding:
Text File  |  1991-09-01  |  2.6 KB  |  115 lines
  1. ;  TurboTerm! v2.0 Script File
  2. ;
  3. ;  Script : GEMAIL.SCR  - captures waiting GEMail.
  4. ;  Created: 08/17/91 20:40
  5. ;  Author : Brian S. Dunworth
  6. ;
  7. ;  This script makes use of several of TurboTerm's script
  8. ;
  9. ;  *Note:  The COMMENT lines will write comments into the current
  10. ;          USAGE log if it is active during the connect.  If the
  11. ;          USAGE log is inactive, the line will be ignored.
  12. ;
  13. ;
  14. ;------------------------------------------------------------------
  15. ;
  16. ; first, set up a conditional statement to check for our EMail...
  17. ;
  18. WHEN 1 "You have" GOTO MAIL
  19. ;
  20. ;  ..if we have letters waiting, we'll execute the MAIL pr
  21. ;
  22. ;
  23. ; -------------------------------
  24. ;  Logon
  25. ; -------------------------------
  26. WAIT 2
  27. SEND "HHH"
  28. ;
  29. ; Here, we switch the duplex, so that anyone looking over
  30. ; our shoulder won't see our password being entered.
  31. ;
  32. DUPLEX FULL
  33. WAITFOR "U#=" SEND "{PASSWORD}" TIMEOUT 10
  34. DUPLEX HALF
  35. ;
  36. ; -------------------------------
  37. ;  GEMail Main Procedure
  38. ; -------------------------------
  39. ;
  40. WAITFOR "tinue?" SEND "{Enter}" TIMEOUT 60
  41. ;
  42. ; if we get here, there was no mail waiting, so deactivate the
  43. ; conditional...
  44. ;
  45. WHEND 1
  46. ;
  47. ;
  48. ; Capture list of new files
  49. ;
  50. :BOARDS
  51. WAITFOR "P 1?" SEND "m615;3" TIMEOUT 60
  52. WRITE "Capturing IBM RT new files list"
  53. LOGNAME IBMFILES.NEW
  54. COMMENT "Capturing IBM RT file listing"
  55. WAITFOR "Library?" SEND "11" TIMEOUT 60
  56. LOG ON
  57. WAITFOR "Library?" GOSUB DONELOG TIMEOUT 32000
  58. SEND "exit"
  59. ;
  60. ; Capture messages
  61. ;
  62. WAITFOR "P 615?" SEND "m400;7" TIMEOUT 60
  63. WRITE "Scanning LiveWire Board"
  64. WAITFOR "1 ?" SEND "scr 0" TIMEOUT 100
  65. WAITFOR "1 ?" SEND "bro nor" TIMEOUT 30
  66. LOGNAME LIVEWIRE.TXT
  67. COMMENT "Capturing LiveWire BB Messages"
  68. LOG ON
  69. WAITFOR "1 ?" GOSUB DONELOG TIMEOUT 32000
  70. ;
  71. ; Log off GEnie and exit TurboTerm
  72. ;
  73. SEND "exit"
  74. WAITFOR "P 400?" SEND "bye" TIMEOUT 90
  75. ;
  76. WAITFOR "NO CARRIER" GOTO BYEBYE TIMEOUT 100
  77. ;
  78. END
  79. ;
  80. ;
  81. ; -------------------------------
  82. ;  GEMail Script   Subroutines
  83. ; -------------------------------
  84. ;
  85. ; Letters waiting
  86. :MAIL
  87. ;
  88. ;  If we got here, there was EMail waiting for us...
  89. ;
  90. WHEND 1
  91. ;
  92. WRITE "Capturing waiting EMail"
  93. WAITFOR "tinue?" SEND "m200;9" TIMEOUT 60
  94. WAITFOR "Command?" SEND "list" TIMEOUT 60
  95. LOGNAME EMAIL.TXT
  96. COMMENT "Capturing EMail"
  97. LOG ON
  98. WAITFOR "Command?" GOSUB DONELOG TIMEOUT 32000
  99. SEND "exi"
  100. WAITFOR "P 200?" SEND "top" TIMEOUT 15
  101. GOTO BOARDS
  102. ;
  103. :DONELOG
  104. ;  this small subroutine does nothing more than turn OFF the current
  105. ;  log file.  It is called a few times during this script...
  106. ;
  107. LOG OFF
  108. RETURN
  109. ;
  110. :BYEBYE
  111. ; This procedure will exit TurboTerm, and return to the DOS prompt.
  112. ;
  113. EXIT_TT
  114. ;
  115.